BEGIN SCRIPT cables
-- sonar sample-06 / drop test on H-section
-- created: 28/11/2016 L&G_Software
-- all variables in [cm g us]-system
-- section type: H-section HEA160 (GS-6152.34)
-- Aufhaengung_bergseitig
-- Seil d=18mm
-- smtliche Rckhalteseile bekommen eine gemeinsame Supergroup Nr.

--------------------------------------------------------------------
-- Fixpunkte am Berg
--------------------------------------------------------------------
CREATE FIXPOINT (F1, -498.9, 2286.2, -103.5)
CREATE FIXPOINT (F2,  503.8, 2302.0, -105.7)

-------------------------------------------------------------------
-- CABLES
-------------------------------------------------------------------
-- Syntax:
-- CREATE CABLE_BLOCKMODEL(x1,y1,z1,x2,y2,z2,n0,d0,ro,CTR120,Kc,Kr,C1,C2)

SET VALUE (NEW_SUPERGROUP_NR)
-- create cable 1
--                       x1     y1      z1     x2      y2      z2      n0   wd0  ro   CTR120  Kc   Kr    C1   C2
CREATE CABLE_BLOCKMODEL (-16.0, 1811.0, 379.0, -498.9, 2286.2, -103.5, 100, 1.8, 7.8, CTR120, 1.0, 0.01, 0.1, 0.1)
SET GROUP_PROPERTY(LAST_GROUP_NR, SUPERGROUP_NR, LAST_SUPERGROUP_NR)

-- create cable 2
--                       x1    y1      z1     x2     y2      z2      n0   wd0  ro   CTR120  Kc   Kr    C1   C2
CREATE CABLE_BLOCKMODEL (16.0, 1811.0, 379.0, 503.8, 2302.0, -105.7, 100, 1.8, 7.8, CTR120, 1.0, 0.01, 0.1, 0.1)
SET GROUP_PROPERTY(LAST_GROUP_NR, SUPERGROUP_NR, LAST_SUPERGROUP_NR)

SET SUPERGROUP_PROPERTY(LAST_SUPERGROUP_NR, INTERACT_MODE, PASSIVE)
SET SUPERGROUP_PROPERTY(LAST_SUPERGROUP_NR, NAME, "Rueckhalteseil")
--SET SUPERGROUP_PROPERTY(LAST_SUPERGROUP_NR, ROTATION_LOCKED, Z, TRUE, ALL)

-------------------------------------------------------------------
-- STRENGTH
-------------------------------------------------------------------
SET SUPERGROUP_PROPERTY(LAST_SUPERGROUP_NR, C_LINK, STRENGTH_CALC, ABSOLUTE, 200000.0E-7, 1.0) -- 200 kN
SET SUPERGROUP_PROPERTY(LAST_SUPERGROUP_NR, C_LINK, STRAIN_LIMIT, PERCENT, 4.0) -- 4%
SET SUPERGROUP_PROPERTY(LAST_SUPERGROUP_NR, C_LINK, OVERLOAD_ACTION, BREAKUP)
SET SUPERGROUP_PROPERTY(LAST_SUPERGROUP_NR, COLOR_STD, 3) -- Silver
SET SUPERGROUP_PROPERTY(LAST_SUPERGROUP_NR, C_LINK, MATERIAL_MODEL, 5) -- linear elastic + linear isotropic hardening
SET SUPERGROUP_PROPERTY(LAST_SUPERGROUP_NR, YIELD_MODEL, 1) -- 1:= 001_RANKINE

-------------------------------------------------------------------
-- LINKS (CABLE-FIXPOINT)
-------------------------------------------------------------------
DESELECT ALL
SELECT OBJECT (POINT, -498.9+1, 2286.2-1, -103.5+1)
SET VALUE (O1 = SELECTION)
CREATE LINK (K1, NORMAL, O1, F1)
SET PROPERTY (K1, C_LINK, 1.0)

DESELECT ALL
SELECT OBJECT (POINT, 503.8-1, 2302.0-1, -105.7+1)
SET VALUE (O2 = SELECTION)
CREATE LINK (K2, NORMAL, O2, F2)
SET PROPERTY (K2, C_LINK, 1.0)

-------------------------------------------------------------------
-- LINKS (CABLE-SLEEVE)
-------------------------------------------------------------------
DESELECT ALL
CREATE ELEMENT (E1, POINT, -16.5, 1811.5, 378.5)
SELECT ELEMENT (E1)
SELECT OBJECT (POINT, ALL, -16.5, 1811.5, 378.5)
CREATE LINK (K1, NORMAL, SELECTION)
SET PROPERTY (K1, C_LINK, 1.0)

DESELECT ALL
CREATE ELEMENT (E2, POINT, -17.5, 1812.5, 377.5)
SELECT ELEMENT (E2)
SELECT OBJECT (POINT, ALL, -17.5, 1812.5, 377.5)
CREATE LINK (K2, NORMAL, SELECTION)
SET PROPERTY (K2, C_LINK, 1.0)


DESELECT ALL
CREATE ELEMENT (E3, POINT, +16.5, 1811.5, 378.5)
SELECT ELEMENT (E3)
SELECT OBJECT (POINT, ALL, +16.5, 1811.5, 378.5)
CREATE LINK (K3, NORMAL, SELECTION)
SET PROPERTY (K3, C_LINK, 1.0)

DESELECT ALL
CREATE ELEMENT (E4, POINT, +17.5, 1812.5, 377.5)
SELECT ELEMENT (E4)
SELECT OBJECT (POINT, ALL, +17.5, 1812.5, 377.5)
CREATE LINK (K4, NORMAL, SELECTION)
SET PROPERTY (K4, C_LINK, 1.0)

-------------------------------------------------------------------
-- GLOBAL VALUES
-------------------------------------------------------------------
-- Friction
SET VALUE (C_FRICTION_STATIC = 0.3)
SET VALUE (C_FRICTION_DYNAMIC = 0.3)
SET STATE (FRICTION, ON) -- switched on

-- Gravitation
CREATE FIELD(Gravitation, 0.0, -1.0, 0.0, 9.81E-10)

-- max. timestep
SET VALUE(TIMESTEP_MAX = 0.5) -- 0.5E-6s

-- set preferences
SET PREFERENCE (IACT_CYCLE_CALC_PERIOD, 10)
--SET PREFERENCE (IACT_OBJSIZE_SECURITY_FAC, 1.2) -- not yet implemented and executed

DESELECT ALL
-- end of script

